From 494e5af10fd34f4602ea8a8173b59511b8010847 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Mon, 6 Jul 2009 00:08:29 +0000 Subject: [PATCH] (calc-embedded-make-info): Don't force when `calc-embedded-word' is called twice. --- lisp/calc/calc-embed.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el index 1f84bb66412..ed8734a28bf 100644 --- a/lisp/calc/calc-embed.el +++ b/lisp/calc/calc-embed.el @@ -821,7 +821,7 @@ The command \\[yank] can retrieve it from there." calc-embed-outer-top calc-embed-outer-bot) (let* ((bufentry (assq (current-buffer) calc-embedded-active)) (found bufentry) - (force (and fresh calc-embed-top)) + (force (and fresh calc-embed-top (null (equal calc-embed-top '(t))))) (fixed calc-embed-top) (new-info nil) info str) -- 2.30.2